home *** CD-ROM | disk | FTP | other *** search
/ Acorn Risc Technologies StrongARM CD-ROM / Acorn Risc Technologies StrongARM CD-ROM.iso / software / utils / pro_copy / !ProCopy / Resources / procopy (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1996-08-11  |  26.6 KB  |  1,187 lines
  1.  --> ProCopy 200
  2.  This program and all documentation 
  3.  David Holden 1993, 1994
  4. 'A_%=216:B_$="June 1996":
  5. 262343,E_%,F_%
  6. 2:F_%!28=-1:
  7. 262341,,F_%:
  8. (!F_%=H_%)
  9. (!F_%=I_%)J_%=
  10. 262342,,F_%
  11. !F_%=H_%
  12. F_%!4=4
  13. F_%!24=13
  14. 262364,F_%!24
  15. 17,18:
  16. F_%!16
  17. F_%!20
  18. R_%:F_%!12=F_%!8:F_%!16=4:S_%=F_%!40:I%=F_%+44:
  19. ?I%>31:I%+=1:
  20. :?I%=13:
  21. 262375,17,F_%,F_%!4:
  22. T_($(F_%+44),F_%!40)
  23. E_%=0
  24. 1:U_%=
  25. 2:U_%=
  26. 4:U_%=
  27. 5:U_%=
  28. 6:U_%=
  29. e_(0)
  30. 21:E_%=
  31. e_(1)
  32. :E_%=&C31
  33. 262351,,F_%+&C0:h_%=F_%!&C8:
  34. i_%=j_%
  35. F_%!4=-1
  36. 0:!F_%=H_%:
  37. 262342,,F_%:k_%=
  38. l_(I_%):J_%=
  39. l_(n_%)
  40. l_(R_%)
  41. F_%!4
  42. h_%=1
  43. 262356,,i_%,r_%,s_%
  44. 262351,,F_%+&C0:h_%=F_%!&C8:t_%=F_%!12:u_%=F_%!16:
  45. F_%!16=v_%
  46. r_%=F_%!&C0-100:
  47. (-3)):
  48. (-1):
  49. (-2):!F_%=H_%:
  50. 262342,,F_%:k_%=
  51. l_(I_%)
  52. (-3):
  53. x_(11)=
  54. E_%=0:U_%=
  55. x_(32)=
  56. x_(11)=
  57. E_%=0:U_%=
  58. :!F_%=H_%:
  59. 262342,,F_%:k_%=
  60. l_(I_%)
  61. 2:s_%=428:i_%=j_%:
  62. 262356,,i_%,r_%,s_%
  63. (-3)):
  64. (-1):
  65. l_(R_%)
  66. (-2):
  67. __%>0
  68. l_(I_%)
  69. (-3):
  70. __%>0
  71. __%=0
  72. l_(I_%)
  73. x_(31)=
  74. U_%<=0
  75. U_%>0
  76. x_(11)=
  77. E_%=0:U_%=
  78. 4:A`%-=1:
  79. A`%<0 A`%=B`%
  80. C`(I_%,3,A`%)
  81. 5:A`%+=1:
  82. A`%>B`% A`%=0
  83. C`(I_%,3,A`%)
  84. U_%>0:
  85. D`%-=1:
  86. D`%<0 D`%=B`%
  87. C`(H_%,3,D`%)
  88. U_%>0:
  89. D`%+=1:
  90. D`%>B`% D`%=0
  91. C`(H_%,3,D`%)
  92. U_%<=0
  93. U_%=0
  94. E_%=0
  95. U_%=8
  96. E`((2)):U_%=0:E_%=&C31:!F_%=H_%:
  97. 262342,,F_%:J_%=
  98. E`((3)):E_%=&C31
  99. :E_%=0:
  100. E`((2))
  101. E`(__%)
  102. U_%>0:
  103. __%=0:
  104. u_%=H`%
  105. F_%!8=4 G`%=F_%!12:
  106. 8,13,J`$+".Preset"
  107. L`(1,
  108. M`(15))
  109. 4:P%=O`%!((u_%-2)*4):P`$=$P%:
  110. R`(u_%)
  111. S`(17)=
  112. R`(u_%)
  113. R`(u_%):P%=O`%!((u_%-2)*4):Q%=P%:
  114. :P%-=1:
  115. ?P%=13:
  116. :P%-=1:
  117. ?P%=13
  118. P%=T`%-1:P%+=1:
  119. :Q%+=1:
  120. ?Q%=13:Q%+=1:
  121. Q%<U`%:?P%=?Q%:P%+=1:Q%+=1:
  122. V`(P%-T`%):
  123. __%=0:
  124. ZW`%=
  125. x_(29):!X`%=H_%:X`%!4=3:
  126. 262350,,X`%:D`%=?(X`%!28)-48:F`%=
  127. E`(__%):
  128. x_(23)=
  129. $$Y`%=
  130. M`(18)+
  131. (D`%):
  132. S`(-1)=
  133. :Z`%=
  134. x_(18)=
  135. U_%=9
  136. U_%=3
  137. U_%=20
  138. E_%=0:
  139. a`:Z`%=
  140. :W`%=
  141. x_(29):
  142. E`(__%):
  143. x_(18)=
  144. U_%=9
  145. U_%=3
  146. U_%=20
  147. E_%=0:
  148. D`%+=1:
  149. D`%>B`% D`%=0
  150. D`%<>0
  151. ?E_%=&C31:U_%=0:Z`%=
  152. 34,11,1,&58:
  153. 34,11,0,&58:
  154. d`%>=
  155. x_(34)=
  156. L`(1,
  157. M`(0))
  158. E`(__%):E_%=&C31:U_%=0:F`%=
  159. l_(H_%):J_%=
  160. x_(23)=
  161. )f`%=
  162. :U_%=8:E_%=0:g`%=0:h`%=0:
  163. E`(-1)
  164. l_(H_%):J_%=
  165. 34,11,1,&58:
  166. 34,11,0,&58:
  167. >120:
  168. h`%<5 h`%=0:
  169. E`(-1):
  170. >100:
  171. h`%<4 h`%=4:
  172. E`(-5)
  173. h`%<3 h`%=3:
  174. E`(-4)
  175. h`%<2 h`%=2:
  176. E`(-3)
  177. h`%=0 h`%=1:
  178. E`(-2)
  179. 262732,1,D`%,g`%
  180. ,,g`%,F%:
  181. 8 f`%=
  182. c_%=c_% E_%=&C31:U_%=0:
  183. >&10000)
  184. <&20000)
  185. Q!F_%=H_%:F_%!4=3:
  186. 262350,,F_%:D`%=?(F_%!28)-48:
  187. (-1)c`%=
  188. :D`%=0
  189. e`=0 I%=
  190. L`(1,
  191. M`(1)):
  192. d`%>=
  193. e` I%=
  194. L`(1,
  195. M`(2)):
  196. C`(H_%,4,
  197. e`):F`%=
  198. :Z`%=
  199. :W`%=
  200. x_(29):
  201. E`(__%):
  202. x_(26)=
  203. !F_%=H_%:
  204. 262342,,F_%:J_%=
  205. x_(18)=
  206. U_%=9
  207. U_%=3
  208. U_%=20
  209. E_%=0:
  210. e_(i`%):
  211. $k`%=15:
  212. x_(18)=
  213. k`%+=1:
  214.  format
  215. x_(17)=
  216. k`%+=2:
  217.  verify
  218. 1)=0 k`%+=i`%
  219. 262725,
  220. (D`%)+
  221. 0,l`%:
  222. !l`%=&4021209 l`%!16=&168000
  223. (l`%!16<>__%)
  224. x_(19)=
  225. k`%+=1
  226. S`(7)=1 k`%+=1
  227. E`(k`%):
  228. m`(H_%,5,"Copy")
  229. m`(H_%,5,"Format/Copy"):
  230. 1024)
  231. m`(H_%,5,"Copy/Verify")
  232. m`(H_%,5,"Format/Copy/Verify"):
  233. 1024)
  234. :o`%=D`%<<29:p`%=q`%:r`%=q`%+__%:s`%=__%
  235. 160:t`%=0:
  236. x_(15)=
  237. 262343,0,F_%:
  238. U_%=0:E_%=&C31
  239. :E_%=0:
  240.     U_%=6
  241. :U_%=21:
  242. v`%=640 w`%=159:x`%=1
  243. s`%=s`%*2:w`%=79:x`%=2
  244. m`(H_%,11,"All"):*FX229,0
  245. 263872:
  246. y`%=0
  247. &100:
  248. t`%=0
  249. 79:z`%=t`%
  250. _`%:J%=``%+36:
  251. 15:!J%=z`%
  252. Aa%<<16:J%+=4:Aa%=(Aa%+1)
  253. 262720,0,4,Ba%,0,``%:Ba%+=s`%:Aa%=(Aa%+Ca%)
  254. 1680:
  255. t`%=0
  256. 159:y`%=t`%
  257. 2:Da%=t`%
  258. 2:z`%=Da%
  259. y`%<<8
  260. _`%:Aa%=1:
  261. J%=``%+36
  262. ``%+116
  263. 8:!J%=z`%
  264. Aa%<<16:J%!4=z`%
  265. (Aa%+11)<<16:Aa%+=1:
  266. 262720,0,4,Ba%,0,``%:Ba%+=s`%:
  267. t`%=0
  268. 159:y`%=t`%
  269. 2:Da%=t`%
  270. 2:z`%=Da%
  271. y`%<<8
  272. _`%:J%=``%+36:
  273. Ea%:!J%=z`%
  274. (Aa%+Fa%)<<16:J%+=4:Aa%=((Aa%+1)
  275. Ea%):
  276. 262720,0,4,Ba%,0,``%:Ba%+=s`%:
  277. y`%=1 Aa%=(Aa%+Ca%)
  278. :o`%=D`%<<29:p`%=q`%:
  279. v`%=640 w`%=159
  280. s`%=s`%*2:w`%=79
  281. 262720,,2
  282. l`%<<6,o`%,p`%,s`%
  283. E%;F%:
  284. k`%>16
  285. 393792,,0,o`%,,s`%
  286. I0o`%+=s`%:p`%+=s`%:
  287. 263873:d`%+=1:*fx229,1
  288. C`(H_%,8,d`%):
  289. C`(H_%,11,0):
  290. m`(H_%,5,"Waiting"):
  291. E`(4):
  292. "ADFS:Dismount :"+
  293. x_(28)=
  294. x_(35)
  295. E_%=&C31:U_%=0:
  296. C`(H_%,11,t`%):*FX229,0
  297. 262720,,2
  298. l`%<<6,o`%,p`%,s`%
  299. E%;F%:
  300. k`%>16
  301. 393792,,0,o`%,,s`%
  302. b_:=&C31
  303. \*o`%+=s`%:p`%+=s`%:t`%+=x`%:
  304. t`%<159:=0
  305. ^ed`%+=1:Ha,1:
  306. C`(H_%,8,d`%):
  307. C`(H_%,11,0):
  308. m`(H_%,5,"Waiting"):
  309. "ADFS:Dismount :"+
  310. x_(35)
  311. b`:=0
  312. E`(4):
  313. x_(28)=
  314. U_%=0:=&C31
  315. C`(H_%,11,t`%):*FX229,0
  316. 640:z`%=(t`%
  317. 2)<<8
  318. _`%:J%=``%+36:
  319. 15:!J%=z`%
  320. Aa%<<16:J%+=4:Aa%=(Aa%+1)
  321. 262720,0,4,Ba%,0,``%:Ba%+=s`%:Aa%=(Aa%+Ca%)
  322. 1680:y`%=t`%
  323. 2:Da%=t`%
  324. 2:z`%=Da%
  325. y`%<<8
  326. _`%:Aa%=1:
  327. J%=``%+36
  328. ``%+116
  329. 8:!J%=z`%
  330. Aa%<<16:J%!4=z`%
  331. (Aa%+11)<<16:Aa%+=1:
  332. 262720,0,4,Ba%,0,``%:Ba%+=s`%
  333. :y`%=t`%
  334. 2:Da%=t`%
  335. 2:z`%=Da%
  336. y`%<<8
  337. _`%:J%=``%+36:
  338. Ea%:!J%=z`%
  339. (Aa%+Fa%)<<16:J%+=4:Aa%=((Aa%+1)
  340. Ea%):
  341. 262720,0,4,Ba%,0,``%:Ba%+=s`%:
  342. y`%=1 Aa%=(Aa%+Ca%)
  343. 262720,,2
  344. l`%<<6,o`%,p`%,s`%
  345. E%;F%:
  346. k`%>16
  347. 393792,,0,o`%,,s`%
  348. (o`%+=s`%:p`%+=s`%:t`%+=1:
  349. t`%<160:=0
  350. x_(28)=
  351. U_%=0:Ja 229,1:=&C31
  352. U_%=0:
  353. 262725,
  354. (D`%)+
  355. 0,l`%:
  356. !l`%=&4021209 l`%!16=&168000
  357. l`%!16<>__%
  358. x_(19)=
  359. >>>> reformat if wrong size
  360. S`(7)=
  361. m`(H_%,5,"Copying"):
  362. E`(15):
  363. 262343,0,F_%:o`%=D`%<<29:p`%=q`%:r`%=q`%+__%:
  364. x_(13)=
  365. :s`%=__%
  366. 160:t`%=0:E_%=0:U_%=4:
  367. 263872:
  368. m`(H_%,11,"All"):*FX229,0
  369. 262720,,2
  370. l`%<<6,o`%,p`%,__%:
  371. 263873:*FX229,1
  372. x_(17)=
  373. d`%+=1:*fx229,1
  374. C`(H_%,8,d`%):
  375. C`(H_%,11,0):
  376. m`(H_%,5,"Waiting"):
  377. "ADFS:Dismount :"+
  378. x_(35)
  379. E`(4):
  380. x_(28)=
  381. p%,h%,l%,l$:h%=0:
  382. 13,0,h%:
  383. x_(36)=
  384. l$=Na$+Oa$
  385. l$=Na$+
  386. Oa$,4)
  387. 13,&C7,l$
  388. 13,&87,l$
  389. "settype "+l$+" fff"
  390. 8,17,l$
  391. ,,,,l%:$Y`%=Pa$+
  392. 10:p%=0:
  393. Y`%?p%<>10:
  394. Y`%?p%=160 Y`%?p%=32
  395. -p%+=1:
  396. 12,1,h%,Y`%,p%+1,l%:
  397. 13,0,h%:
  398. Ka:=0
  399. 262720,,2
  400. l`%<<6,o`%,p`%,s`%
  401. E%;F%:o`%+=s`%:p`%+=s`%:t`%+=1:
  402. C`(H_%,11,t`%):
  403. p`%<r`%:=4
  404. x_(17)=
  405. Ma:=U_%
  406. C`(H_%,11,0):
  407. m`(H_%,5,"Waiting"):d`%+=1:
  408. C`(H_%,8,d`%):
  409. b`:=U_%
  410. E_%=&C31:=0
  411. *fx229,1
  412. C`(H_%,11,0):
  413. m`(H_%,5,"Waiting"):
  414. E`(1):E_%=&C31:U_%=0:
  415. 263874:
  416. <>&1089A
  417. E`(5):F`%=
  418. l_(H_%):J_%=
  419. x_(20)=
  420. Qa(1):
  421. S`(8)=
  422. E_%=0:
  423. Qa(1):
  424. E`(5):F`%=
  425. l_(Ra-w%):J_%=
  426. *fx229,1
  427. C`(H_%,11,0):
  428. m`(H_%,5,"Waiting"):
  429. E`(1):E_%=&C31:U_%=0:
  430. 263874:
  431. <>&1089A
  432. E`(5):F`%=
  433. l_(H_%):J_%=
  434. x_(20)=
  435. E_%=0:
  436. S`(8)=
  437. E_%=0:
  438. E`(5):F`%=
  439. l_(Ra-w%):J_%=
  440. m`(H_%,5,"Verifying"):
  441. E`(12):
  442. 262343,0,F_%:p`%=D`%<<29:L%=__%
  443. 160:t`%=0:
  444. x_(14)=
  445. E_%=0:U_%=5:
  446. m`(H_%,11,"All"):
  447. 263872:*FX229,0
  448. 393792,,0,p`%,,__%
  449. ,,p`%,,R%;F%:*fx229,1
  450. C`(H_%,11,p`%
  451. 263873:
  452. d`%+=1:*fx229,1
  453. C`(H_%,8,d`%):
  454. C`(H_%,11,0):
  455. m`(H_%,5,"Waiting"):
  456. 263873:
  457. "ADFS:Dismount :"+
  458. x_(35)
  459. U_%=0:E_%=&C31:
  460. x_(28)=
  461. E`(4):
  462. 393792,,0,p`%,,L%
  463. ,,p`%;F%:
  464. 1):=7
  465. t`%<159
  466. t`%+=1:
  467. C`(H_%,11,t`%):=5
  468. :d`%+=1:E_%=0:
  469. C`(H_%,11,0):
  470. m`(H_%,5,"Waiting"):
  471. C`(H_%,8,d`%):
  472. "ADFS:Dismount :"+
  473. b`:=U_%
  474. E`(4):
  475. x_(28)=
  476. b_:*fx229,1
  477. m`(H_%,5,
  478. M`(19)):
  479. x_(21)=
  480. x_(25)=
  481. e_(1)
  482. S`(9)=
  483. e_(1)
  484. x_(25)=
  485. S`(9)=
  486. E_%=0:
  487. :E_%=0:
  488. Sa:Ta%+=1:E_%=&C31:U_%=0:
  489. C`(H_%,13,Ta%):
  490. L`(1,
  491. M`(10))
  492. ;pU_%=0:
  493. m`(H_%,5,"Formatting"):
  494. E`(10):Ba%=D`%<<29:t`%=0:
  495. x_(12)=
  496. m`(H_%,11,"All"):
  497. 262343,0,F_%:M%=
  498. 1024)
  499. n`(M%,800)
  500. 1600:
  501. n`(M%,1600)
  502. 1440:
  503. n`(M%,1440)
  504. n`(M%,720)
  505. n`(M%,640)
  506. 1680:
  507. n`(M%,1680)
  508. :Ua 20000,
  509. M`(20)
  510. :Z`%=
  511. :E_%=0:
  512. U_%=3
  513. U_%=6
  514. n`(w`%,v`%):
  515. 800:Ca%=4:
  516.  10,5,2,2,15,7,1,0,0,1,32,5,3,2,0,0,0,&80,&0C,0,0,0
  517.  0,4,0,0,50,0,0,0,0,0,0,0,&5A,0,0,0,5,2,1,&A5,80,0,0,0
  518. 1600:Ca%=9:
  519.  10,10,2,4,15,6,1,0,0,4,64,6,9,2,0,0,0,0,&19,0,0,0
  520.  0,4,0,0,50,0,0,0,0,0,0,0,&5A,0,0,0,10,4,1,&A5,80,0,0,0
  521. 1440:Ca%=16:
  522.  9,18,2,4,0,0,0,0,1,0,0,0,0,0,0,0,0,&80,&16,0,0,0
  523.  0,2,0,0,50,0,0,0,0,0,0,0,&5A,0,0,0,18,4,1,&4E,80,0,0,0
  524. 720:Ca%=7:
  525.  9,9,2,2,0,0,0,0,1,0,0,0,0,0,0,0,0,&40,&0B,0,0,0
  526.  0,2,0,0,50,0,0,0,0,0,0,0,&5A,0,0,0, 9,2,1,&4E,80,0,0,0
  527. 640:Ca%=12:
  528.  8,16,1,2,0,0,0,0,64,0,0,0,0,2,0,0,0,0,&0A,0,0,0
  529.  0,1,0,0,50,0,0,0,0,0,0,0,&39,0,0,0,16,2,&0D,&A5,80,0,0,0
  530. 1680:Ca%=20:
  531.  9,&15,2,4,0,0,1,0,1,0,0,0,0,0,0,0,0,&40,&1A,0,0,0
  532.  0,2,0,0, &20,0,0,0, 0,0,0,0, 12,0,0,0, 21,4,1,&E5, 80,0,0,0
  533. 20000,
  534. M`(21)
  535. J%:l`%?I%=J%:
  536. I%=36
  537. 59:l`%?I%=0:
  538. J%:``%?I%=J%:
  539. :``%!24=0:``%!28=0:``%!32=0:Aa%=0:Fa%=(l`%?8)
  540. 3:Ea%=l`%?1:s`%=Ea%*!``%:Ba%=D`%<<29:_`%=((?l`%)-7)<<24:t`%=0:
  541. E_%=0:U_%=6:
  542. 263872:*fx229,0
  543. y`%=0
  544. &100:
  545. t`%=0
  546. 79:z`%=t`%
  547. _`%:J%=``%+36:
  548. 15:!J%=z`%
  549. Aa%<<16:J%+=4:Aa%=(Aa%+1)
  550. 262720,0,4,Ba%,0,``%:Ba%+=s`%:Aa%=(Aa%+Ca%)
  551. 1680:
  552. t`%=0
  553. 159:y`%=t`%
  554. 2:Da%=t`%
  555. 2:z`%=Da%
  556. y`%<<8
  557. _`%:Aa%=1:
  558. J%=``%+36
  559. ``%+116
  560. 8:!J%=z`%
  561. Aa%<<16:J%!4=z`%
  562. (Aa%+11)<<16:Aa%+=1:
  563. 262720,0,4,Ba%,0,``%:Ba%+=s`%:
  564. t`%=0
  565. 159:y`%=t`%
  566. 2:Da%=t`%
  567. 2:z`%=Da%
  568. y`%<<8
  569. _`%:J%=``%+36:
  570. Ea%:!J%=z`%
  571. (Aa%+Fa%)<<16:J%+=4:Aa%=((Aa%+1)
  572. Ea%):
  573. 262720,0,4,Ba%,0,``%:Ba%+=s`%:
  574. y`%=1 Aa%=(Aa%+Ca%)
  575. :Z`%=
  576. 263873:*fx229,1
  577. Ka:=0
  578. C`(H_%,11,t`%):
  579. 640:z`%=(t`%
  580. 2)<<8
  581. _`%:J%=``%+36:
  582. 15:!J%=z`%
  583. Aa%<<16:J%+=4:Aa%=(Aa%+1)
  584. 262720,0,4,Ba%,0,``%:Ba%+=s`%:Aa%=(Aa%+Ca%)
  585. 1680:y`%=t`%
  586. 2:Da%=t`%
  587. 2:z`%=Da%
  588. y`%<<8
  589. _`%:Aa%=1:
  590. J%=``%+36
  591. ``%+116
  592. 8:!J%=z`%
  593. Aa%<<16:J%!4=z`%
  594. (Aa%+11)<<16:Aa%+=1:
  595. 262720,0,4,Ba%,0,``%:Ba%+=s`%
  596. :y`%=t`%
  597. 2:Da%=t`%
  598. 2:z`%=Da%
  599. y`%<<8
  600. _`%:J%=``%+36:
  601. Ea%:!J%=z`%
  602. (Aa%+Fa%)<<16:J%+=4:Aa%=((Aa%+1)
  603. Ea%):
  604. 262720,0,4,Ba%,0,``%:Ba%+=s`%:
  605. y`%=1 Aa%=(Aa%+Ca%)
  606. :t`%+=1:
  607. t`%<160:=6
  608. Ko`%=D`%<<29:p`%=q`%:t`%=0:
  609. v`%=640 w`%=159:x`%=1
  610. s`%=s`%*2:w`%=79:x`%=2
  611. !X`%=H_%:
  612. 262342,,X`%:!X`%=I_%:X`%!4=3:
  613. 262350,,X`%:A`%=?(X`%!28)-48:o`%=A`%<<29:
  614. x_(22)=
  615. __%>0 $Y`%="Please Confirm:|Read from drive :"+
  616. (A`%):
  617. S`(-1)=
  618. 393797,
  619. (A`%)+
  620. 0,l`%
  621. E%;F%:
  622. (-26)
  623. (-122)
  624. "save <ProCopy$Dir>.^.Drec "+
  625. ~(l`%)+" +30":
  626. "settype <ProCopy$Dir>.^.Drec FFD"
  627. 0I%=E%+4:
  628. ?I%>31:I%+=1:
  629. :?I%=13:
  630. !E%,$(E%+4)
  631. :Pa$="":I%=l`%+22:
  632. ?I%>31
  633. I%<l`%+32:
  634. ?I%=32 Pa$+=
  635. (160)
  636. Pa$+=
  637. (?I%)
  638. -I%+=1:
  639. Pa$)=
  640. (Pa$)>2:Pa$=
  641. Pa$):
  642. E`(20):
  643. Xa(Pa$):
  644. 262343,0,X`%:
  645. Ya(l`%!16)=
  646. M`(22),
  647. m__%=l`%!16:Za%=q`%:s`%=__%
  648. 160:t`%=0:r`%=q`%+__%:d`%=0:Ta%=0:
  649. m`(I_%,1,Pa$):
  650. C`(H_%,8,0):
  651. C`(H_%,13,0):=
  652. 263872:
  653. m`(I_%,8,"All"):
  654. *FX229,0
  655. 262720,,1
  656. l`%<<6,o`%,q`%,__%:*FX229,1
  657. C`(I_%,8,0):
  658. E`(__%):
  659. C`(H_%,8,0):
  660. C`(H_%,13,0):!F_%=I_%:
  661. 262342,,F_%:J_%=
  662. 263873:
  663. "ADFS:Dismount :"+
  664. x_(27)=
  665. ):=&C31
  666. 262720,,1,o`%,Za%,s`%:t`%+=1:Za%+=s`%:o`%+=s`%:
  667. C`(I_%,8,t`%):
  668. Za%<r`%:=1
  669. Xa(Pa$):
  670. C`(I_%,8,0):
  671. E`(__%):
  672. "ADFS:Dismount :"+
  673. x_(27)=
  674. F_%!40
  675. &180:
  676.  10,5,2,2,15,7,1,0,0,1,32,5,3,2,0,0,0,&80,&0C,0
  677. &160:
  678.  10,10,2,4,15,6,1,0,0,4,64,6,9,2,0,0,0,0,&19,0
  679. &144:
  680.  9,18,2,4,0,0,0,0,1,0,0,0,0,0,0,0,0,&80,&16,0
  681. &172:
  682.  9,9,2,2,0,0,0,0,1,0,0,0,0,0,0,0,0,&40,&0B,0
  683. &164:
  684.  8,16,1,2,0,0,0,0,64,0,0,0,0,2,0,0,0,0,&0A,0
  685. &170:
  686.  9,&15,2,4,0,0,1,0,1,0,0,0,0,0,0,0,0,&40,&1A,0,0,0
  687. F_%!12=F_%!8:F_%!16=4:S_%=F_%!40:I%=F_%+44:P`$="":
  688. ?I%:P`$+=
  689. (?I%):I%+=1:
  690. 262375,17,F_%,F_%!4:
  691. x_(22)=
  692. __%>0
  693. S`(3)=
  694. 8,17,P`$
  695. I%,,T%,,ba%:S_%=(T%>>8)
  696. &FFF:
  697. I%=0 I%=
  698. L`(1,
  699. M`(4)):
  700. Ya(ba%)=
  701. L`(1,
  702. M`(5)):
  703. ca(S_%):__%=l`%!16:
  704. __%<>ba% I%=
  705. L`(1,
  706. M`(6)):
  707. 8,16,P`$,q`%
  708. ,,,,ba%:$F_%=P`$:I%=F_%:
  709. ?I%>32:I%+=1:
  710. ?I%<>
  711. ".":I%-=1:
  712. :Pa$=$(I%+1):!F_%=I_%:
  713. 262342,,F_%:
  714. Xa(Pa$):s`%=__%
  715. 160:t`%=0:r`%=q`%+__%:d`%=0:Ta%=0:
  716. C`(H_%,8,0):
  717. C`(H_%,13,0):
  718. E`(__%):
  719. x_(27)=
  720. x_(33)=
  721. x_(26)=
  722. !F_%=H_%:
  723. 262342,,F_%:k_%=
  724. x_(30)=
  725. !F_%=H_%:F_%!4=3:
  726. 262350,,F_%:D`%=?(F_%!28)-48:F`%=
  727. E`(__%):
  728. x_(23)=
  729. $Y`%="Please Confirm:|Write to drive :"+
  730. (D`%):
  731. S`(-1)=
  732. x_(18)=
  733. U_%=3:E_%=0
  734. S`(da%):
  735. r%,p%,x%,y%,a$:
  736. da%=-1
  737. p%=Y`%
  738. :p%=ea%:
  739. da%>0:
  740. :p%+=1:
  741. ?p%<32:p%+=1:da%-=1:
  742. :a$="":
  743. ?p%<>124
  744. ?p%>31:a$+=
  745. (?p%):p%+=1:
  746. m`(fa%,1,a$):
  747. m`(fa%,2,$(p%+1)):
  748. ga(fa%,-1,0,0):!X`%=fa%:
  749. 262368,,X`%:?X`%=1:X`%!1=X`%!4:X`%!3=X`%!8:X`%!5=X`%!12:X`%!7=X`%!16-44:
  750. 7,21,X`%:
  751. 262354,fa%,-1,0,-200,-1,0:
  752. 262343,0,F_%
  753. F_%!24=13 F_%!12=fa%:F_%!16=4:r%=6
  754. F_%!24=27 F_%!12=fa%:F_%!16=0:r%=6
  755. F_%!12=fa%:!F_%=fa%:
  756. 262342,,F_%:
  757. 53,-1,4
  758. ,,r%:
  759. 53,-1,11
  760. ,,x%:x%=x%<<r%:
  761. 53,-1,5
  762. ,,r%:
  763. 53,-1,12
  764. ,,y%:y%=y%<<r%:
  765. 0,0,x%,y%:
  766. F_%!16=4:=
  767. ga(w%,ha%,ia%,ja%):
  768. ka%,la%,ma%,na%,oa%:
  769. 53,-1,4
  770. ,,ka%:
  771. 53,-1,11
  772. ,,la%:la%=(la%<<ka%)+ia%:
  773. 53,-1,5
  774. ,,ka%:
  775. 53,-1,12
  776. ,,ma%:ma%=(ma%<<ka%)+ja%:!F_%=w%:
  777. 262347,,F_%:na%=F_%!12-F_%!4:oa%=F_%!16-F_%!8:la%=(la%-na%)
  778. @`ma%=(ma%-oa%)
  779. 2:F_%!4=la%:F_%!12=la%+na%:F_%!8=ma%:F_%!16=ma%+oa%:F_%!28=ha%:
  780. 262341,,F_%:
  781. ca(pa%):
  782. &180:
  783.  10,5,2,2,15,7,1,0,0,1,32,5,3,2,0,0,0,&80,&0C,0
  784. &160:
  785.  10,10,2,4,15,6,1,0,0,4,64,6,9,2,0,0,0,0,&19,0
  786. &144:
  787.  9,18,2,4,0,0,0,0,1,0,0,0,0,0,0,0,0,&80,&16,0
  788. &172:
  789.  9,9,2,2,0,0,0,0,1,0,0,0,0,0,0,0,0,&40,&0B,0
  790. &272:
  791.  9,10,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,&40,&0B,0
  792. &164:
  793.  8,16,1,2,0,0,0,0,64,0,0,0,0,2,0,0,0,0,&0A,0
  794. &170:
  795.  9,&15,2,4,0,0,1,0,1,0,0,0,0,0,0,0,0,&40,&1A,0,0,0
  796. 20000,
  797. M`(6)
  798. I%=l`%
  799. l`%+40
  800. 4:!I%=0:
  801. J%:l`%?I%=J%:
  802. C`(H_%,8,d`%):
  803. C`(H_%,13,Ta%):!F_%=I_%:
  804. 262342,,F_%:
  805. l_(H_%):J_%=
  806. :k_%=
  807. Xa(n$):
  808. m`(H_%,1,n$):
  809. m`(G`%,1,n$):
  810. m`(I_%,1,n$):
  811. m`(qa%,0,n$):
  812. x%,s%:
  813. 53,-1,4
  814. ,,s%:
  815. 53,-1,11
  816. ,,x%:x%=(x%<<s%)-220:!X`%=qa%:
  817. 262347,,X`%:
  818. X`%!4>x% X`%!4=x%:X`%!12=x%+204
  819. X`%!28=-1:
  820. 262341,,X`%:
  821. o_(ra%):
  822. __%>0
  823. x_(24)=
  824. S`(11)=
  825. Xa("None"):
  826. C`(H_%,11,0):
  827. m`(H_%,5,"Waiting"):
  828. C`(H_%,8,0):
  829. C`(H_%,13,0):__%=0:Pa$="":d`%=0:Ta%=0:U_%=0:E_%=&C31:F`%=
  830. E`(0):
  831. Wa:I%=
  832. Ya(0):!F_%=H_%:
  833. 262342,,F_%:k_%=
  834. e`:!F_%=H_%:F_%!4=4:
  835. 262350,,F_%:I%=F_%!28:
  836. ?I%>31:I%+=1:
  837. :?I%=13:=
  838. ($(F_%!28))
  839. C`(w%,i%,v%):!X`%=w%:X`%!4=i%:
  840. 262350,,X`%:X`%!8=0:X`%!12=0:$(X`%!28)=
  841. (v%):
  842. 262349,,X`%:
  843. m`(w%,i%,s$):!X`%=w%:X`%!4=i%:
  844. 262350,,X`%:X`%!8=0:X`%!12=0:$(X`%!28)=s$:
  845. 262349,,X`%:
  846. I`:!F_%=G`%:
  847. 262347,,F_%:X%=F_%!4-F_%!20:Y%=F_%!16-F_%!24:F_%!4=H`%:
  848. 262350,,F_%:!F_%=F_%!8+X%:F_%!4=F_%!12+Y%:F_%!8=F_%!16+X%:F_%!12=F_%!20+Y%:
  849. 271360,%11000101,1,F_%!28,F_%:
  850. 271361:
  851. 262351,,F_%:F_%!20=F_%!12:F_%!24=F_%!16:F_%!28=!F_%:F_%!32=F_%!4:F_%!&80=G`%:F_%!&84=1:
  852. 262350,,F_%+&80:sa$="":I%=F_%!&9C:
  853. ?I%>32:sa$+=
  854. (?I%):I%+=1:
  855. :F_%!36=__%:F_%!40=S_%:F_%!16=1:$(F_%+44)=sa$
  856. @!F_%=(
  857. (sa$)+49)
  858. 3:F_%!12=0:
  859. 262375,17,F_%,F_%!20,F_%!24:
  860. `I%=F_%+44:
  861. ?I%>31:I%+=1:
  862. :?I%=13:
  863. 8,10,$(F_%+44),S_%,,q`%,q`%+__%:!F_%=G`%:
  864. 262342,,F_%:
  865. x_(da%):!F_%=n_%:F_%!4=da%:
  866. 262350,,F_%:
  867. (F_%!24
  868. 1<<21):=
  869. Ya(v`%):
  870. 262380,ta%+v`%,-1
  871. e%<(ta%+v`%):=
  872. l_(w%):X`%!&80=w%:
  873. 262347,,X`%+&80:F_%!&9C=-1:
  874. 262341,,X`%+&80:
  875. va,wa,xa,Ra,m%:wa=1:va=2:Ra=4:xa=&80:
  876. ya%&140:m%=ya%:za%=
  877. _a (m%,"Options",140):m%=
  878. `a ("Save",0,0):m%=
  879. `a ("Restore",xa,0):j_%=
  880. _a (m%,"Pro Copy",140):m%=
  881. `a ("Read",0,0):Ab%=m%+8:m%=
  882. `a ("Write",0,G`%)
  883. `a ("Options",0,za%):m%=
  884. `a ("Preset",0,0):m%=
  885. `a ("Clear",0,0):m%=
  886. `a ("Info",va,Bb%):m%=
  887. `a ("Quit",xa,0):
  888. Wa:!Ab%=!Ab%
  889. 1<<22:
  890. aa:!Ab%=!Ab%
  891. (1<<22):
  892. _a (a%,Cb$,Db%):$a%=Cb$:a%!12=&70207:a%!16=Db%:a%!20=40:a%!24=0:m%=a%+28:=a%
  893. `a (Eb$,Fb%,Gb%):!m%=Fb%:m%!4=Gb%:m%!8=&7000001:$(m%+12)=Eb$:=m%+24
  894. E`:!F_%=-1:F_%!4=0:F_%!8=-16:F_%!12=96:F_%!16=84:F_%!20=&1700210B:F_%!24=Hb%:F_%!28=Ib%:F_%!32=8:
  895. 262338,,F_%
  896. I%:=I%
  897. E`(v`%):!X`%=-1:X`%!4=v_%:
  898. 262350,,X`%:
  899. 1600*1024:$Hb%="Ready":$Jb%="file_160":$Ib%="sfile_160":S_%=&160
  900. 1440*1024:$Hb%="Ready":$Jb%="file_144":$Ib%="sfile_144":S_%=&144
  901. 800*1024:$Hb%="Ready":$Jb%="file_180":$Ib%="sfile_180":S_%=&180
  902. 720*1024:$Hb%="Ready":$Jb%="file_172":$Ib%="sfile_172":S_%=&172
  903. 640*1024:$Hb%="Ready":$Jb%="file_164":$Ib%="sfile_164":S_%=&164
  904. 1680*1024:$Hb%="Ready":$Jb%="file_170":$Ib%="sfile_170":S_%=&170
  905. 0:$Hb%="":$Ib%="sempty":$Jb%=""
  906. 1:$Hb%="Ready"
  907. 2:$Hb%="Auto"
  908. 3:$Hb%="Pause"
  909. 4:$Hb%="Copied"
  910. 5:$Hb%="Failed"
  911. 10:$Hb%="Format"
  912. 12:$Hb%="Verify"
  913. 15:$Hb%="Copy"
  914. 16:$Hb%="F/C"
  915. 17:$Hb%="C/V"
  916. 18:$Hb%="F/C/V"
  917. 20:$Hb%="Read":$Ib%="sread":$Jb%=""
  918. -1:$Hb%="Next":$Ib%="sinsert_1"
  919. -2:$Hb%="Next":$Ib%="sinsert_2":X`%!12+=40:X`%!20-=20
  920. -3:$Hb%="Next":$Ib%="sinsert_3":X`%!12+=40:X`%!20-=20
  921. -4:$Hb%="Next":$Ib%="sinsert_4":X`%!12+=40:X`%!20-=20
  922. -5:$Hb%="Next":$Ib%="sinsert_5":X`%!12+=40:X`%!20-=20
  923. :$Hb%=
  924. (t`%)
  925. 262353,-2,X`%!8,X`%!12,X`%!16,X`%!20:!X`%=G`%:X`%!4=H`%:X`%!8=0:X`%!12=0:
  926. 262349,,X`%:
  927. C_ (Kb$,Lb%):E_%=&C31:U_%=0:
  928. 263874:*FX229,1
  929. J!X`%=
  930. :$(X`%+4)="Error "+
  931. )+": "+Kb$+
  932. 262367,X`%,1,Mb%:
  933. 262365,Nb%,&4B534154
  934. L`(Ob%,a$):X`%!&80=0:$(X`%+&84)=a$+
  935. 262367,X`%+&80,16+Ob%,Mb%
  936. ,I%:=I%
  937. Qb%&300:
  938. 2:P%=Qb%:[OPT Rb:stmfd r13!,{r14}:adr r8,Sb:mov r0,r0,lsl#2:ldr pc,[r8,r0]
  939. .Sb equd Tb
  940. ^.Ub equd X`%:.q` equd q`%:.Vb equd Wb%:.Xb equd Yb%:.Zb equd Bb%:.ab equd ab%:.bb equd Mb%
  941. .Tb stmfd r13!,{r14}:adr r1,cb:mov r0,#13:swi 8:cmp r0,#1:bne db:cmp r4,#&20:bne eb:mov r0,#255:ldr r2,q`:mov r3,#0:swi 8:ldr r6,ab:ldr r4,q`:ldr r3,[r4],#4:mov r2,#0:.fb:ldrb r0,[r4,r2]:mvn r0,r0:and r0,r0,#&FF:add r0,r0,r6
  942. =]sub r3,r3,r0:sub r0,r0,r2:strb r0,[r4,r2]:add r2,r2,#1:cmp r2,#20:blt fb:cmp r3,#0:beq gb
  943. .eb:ldr r0,bb:swi&400Ef:adr r1,hb:.ib ldrb r0,[r1],#1:cmp r0,#0:swine 0:bne ib:align:bl jb:mov r0,#1:ldmfd r13!,{pc}:.db:swi 256+7:ldr r0,Xb:ldr r1,q`:add r1,r1,#48:str r0,[r1]:swi&400Cb:bl kb:mov r0,#20:ldr r2,[r1,#4]
  944. add r2,r2,r0:str r2,[r1,#4]:ldr r2,[r1,#12]:add r2,r2,r0:str r2,[r1,#12]:mov r0,#20:ldr r2,[r1,#8]:sub r2,r2,r0:str r2,[r1,#8]:ldr r2,[r1,#16]:sub r2,r2,r0:str r2,[r1,#16]:mvn r0,#0:str r0,[r1,#28]:swi&400c5:ldr r0,Vb
  945. l[ldr r1,q`:add r1,r1,#48:str r0,[r1]:swi&400Cb:bl kb:mvn r0,#0:str r0,[r1,#28]:swi&400c5
  946. .lb:mov r0,#0:ldr r1,q`:add r1,r1,#48:swi&400c7:subs r4,r4,#1:bpl lb:bl jb:ldr r1,q`:add r1,r1,#48:ldr r0,Xb:str r0,[r1]:swi&400c6:ldr r0,Vb:str r0,[r1]:swi&400c6:mov r0,#0:ldmfd r13!,{pc}
  947. .kb mov r4,#10:mvn r0,#0:mov r1,#4:swi&35:mov r10,r2:mvn r0,#0:mov r1,#11:swi&35:mov r8,r2,lsl r10:mvn r0,#0:mov r1,#5:swi&35:mov r9,r2:mvn r0,#0:mov r1,#12:swi&35:mov r7,r2,lsl r9:ldr r1,q`:add r1,r1,#48:ldr r2,[r1,#12]
  948. ldr r3,[r1,#4]:sub r3,r2,r3:sub r2,r8,r3:mov r2,r2,lsr#1:str r2,[r1,#4]:add r2,r2,r3:str r2,[r1,#12]:ldr r2,[r1,#16]:ldr r3,[r1,#8]:sub r3,r2,r3:sub r2,r7,r3:mov r2,r2,lsr#1:str r2,[r1,#8]:add r2,r2,r3:str r2,[r1,#16]
  949. mov pc,r14
  950. .gb:ldr r1,q`:add r1,r1,#48:ldr r0,Zb:str r0,[r1]:mov r0,#5:str r0,[r1,#4]:swi&400ce:ldr r3,[r1,#28]:ldr r2,q`:add r2,r2,#4:.ib ldrb r0,[r2],#1:strb r0,[r3],#1:cmp r0,#32:bge ib:mov r0,#%00010111<<24:str r0,[r1,#8]
  951. Mmov r0,#%11111111<<24:str r0,[r1,#12]:swi&400CD:mov r0,#0:ldmfd r13!,{pc}
  952. S.jb swi&42:add r3,r0,#600:.mb swi&42:cmp r0,r3:blt mb:mov pc,r14:]:
  953. Rb>1:=
  954. [OPT Rb:.cb equs "<obey$dir>.pc_reg":equb 0:align:.hb:equd&20200A0A:equd&20656854:equd&69676552:equd&61727473:equd&6e6f6974:equd&6c694620:equd&61682065
  955. equd&65622073:equd&74206e65:equd&65706d61:equd&20646572:equd&68746977:equd&0A0A070D:equd&2020200A:equd&20202020:equd&20202020:equd&676f7250:equd&206d6172:equd&6d726574:equd&74616e69:equd&0A676e69:equd&0A0D:]:
  956. (nb$+".Options"):
  957. (ob$):
  958. ob$,I%,1)):
  959. #H%,13:
  960. I%=11
  961. 37:!F_%=n_%:F_%!4=I%:
  962. 262350,,F_%:
  963. J%=24
  964. #H%,F_%?J%:
  965. :!F_%=I_%:F_%!4=3:
  966. 262350,,F_%:
  967. #H%,?(F_%!28):!F_%=H_%:F_%!4=3:
  968. 262350,,F_%:
  969. #H%,?(F_%!28)
  970. $+" loading Options",
  971. (nb$+".Options"):
  972. H%=0 I%=
  973. L`(1,
  974. M`(13)):
  975. 0$F_%=
  976. $F_%<>ob$
  977. #H%:I%=
  978. L`(1,
  979. M`(14)):
  980. I%=11
  981. 37:!F_%=n_%:F_%!4=I%:
  982. 262350,,F_%:
  983. J%=64
  984. 67:F_%?J%=
  985. :F_%!8=(F_%!24)
  986. (F_%!64):F_%!12=0:
  987. 262349,,F_%:
  988. :!F_%=I_%:F_%!4=3:
  989. 262350,,F_%:?(F_%!28)=
  990. #H%:A`%=?(F_%!28)-48:F_%!8=0:F_%!12=0:
  991. 262349,,F_%
  992. h!F_%=H_%:F_%!4=3:
  993. 262350,,F_%:?(F_%!28)=
  994. #H%:A`%=?(F_%!28)-48:F_%!8=0:F_%!12=0:
  995. 262349,,F_%:
  996. qb%=0 I%=
  997. L`(1,
  998. M`(16)):
  999. rb%-4
  1000. 4:sb%!I%=T`%!I%:
  1001. :I%=sb%:
  1002. pb%=1
  1003. :I%+=1:
  1004. ?I%=13:?I%=10:I%+=1:
  1005. ?I%<>13:I%+=1:
  1006. :?I%=32:
  1007. ?I%<>13:I%+=1:
  1008. :?I%=10:I%+=1:
  1009. 8,10,J`$+".Preset",&FFF,,sb%,I%:
  1010. 8,17,J`$+".Preset"
  1011. ,,,,ba%:
  1012. ba%>rb% I%=
  1013. L`(1,
  1014. M`(12)):
  1015. 8,16,J`$+".Preset",T`%,0
  1016. ,,,,ba%:
  1017. V`(ba%):
  1018. V`(e%):
  1019. p%,tb%,va%,ub%:
  1020. $+" at line "+
  1021. (va%)+" in Preset List",
  1022. vb:va%=1:ub%=qb%:e%+=T`%:
  1023. I%=T`%
  1024. ?I%=10 ?I%=13
  1025. :p%=T`%:wb%!16=xb%:
  1026. p%<e%:
  1027. :p%+=1:
  1028. ?p%=13:p%+=1:
  1029. :U`%=p%:!F_%=0:F_%!4=-((qb%+1)*zb%)+xb%:F_%!8=240:F_%!12=0:
  1030. 262359,R_%,F_%:
  1031. qb%>ub% A%=qb%
  1032. A%=ub%
  1033. 262353,R_%,0,-((A%+1)*zb%)+xb%,240,0:
  1034. yb:wb%!24=p%:
  1035. ?p%>32:p%+=1:
  1036. :?p%=13:
  1037. ?p%<33:p%+=1:
  1038. :tb%=
  1039. ($p%):
  1040. ?p%>32:p%+=1:
  1041. ?p%<33:p%+=1:
  1042. :O`%!(qb%*4)=p%:
  1043. 0,1,2,3,9,10,12,14,15:wb%?23=(tb%<<4)
  1044. :wb%?23=tb%<<4
  1045. 262338,qb%+2,wb%:wb%!8-=zb%:wb%!16-=zb%:
  1046. ?p%>31:p%+=1:
  1047. :p%+=1:va%+=1:qb%+=1:
  1048. vb:wb%!16=xb%:wb%!8=xb%-zb%:!sb%=R_%:
  1049. 262348,,sb%:
  1050. sb%!88:!F_%=R_%:F_%!4=I%:
  1051. 262340,,F_%:
  1052. :qb%=0:U`%=T`%:
  1053. T_(_b$,`b%):
  1054. p%,tb%:
  1055. &180:tb%=8:wb%?23=(tb%<<4)
  1056. &160:tb%=14:wb%?23=(tb%<<4)
  1057. &144:tb%=10:wb%?23=(tb%<<4)
  1058. &172:tb%=11:wb%?23=(tb%<<4)
  1059. &164:tb%=7:wb%?23=(tb%<<4)
  1060. &170:tb%=13:wb%?23=(tb%<<4)
  1061. C_("This is not a Disc Image file",
  1062. :p%=U`%:$(p%+24)=_b$:I%=p%+24+
  1063. (_b$):
  1064. ?I%<>46:I%-=1:
  1065. :I%+=1:$p%=$I%:I%=p%+
  1066. ($p%):
  1067. :I%+=1:?I%=32:
  1068. I%=p%+16:$I%=
  1069. (tb%):
  1070. ?I%<>13:I%+=1:
  1071. I%<p%+24:?I%=32:I%+=1:
  1072. :O`%!((qb%)*4)=p%+24:
  1073. ?I%<>13:I%+=1:
  1074. :U`%=I%+1:wb%!24=p%
  1075. 262338,qb%+2,wb%:wb%!8-=zb%:wb%!16-=zb%:qb%+=1:!F_%=0:F_%!4=-((qb%+1)*zb%)+xb%:F_%!8=240:F_%!12=0:
  1076. 262359,R_%,F_%:
  1077. 262353,R_%,0,-((qb%+1)*zb%)+xb%,240,0:
  1078. M`(da%):
  1079. p%:p%=ea%:
  1080. da%>0:
  1081. :p%+=1:
  1082. ?p%<32:p%+=1:da%-=1:
  1083. :=$p%
  1084. 8,17,nb$+".messages"
  1085. F%,,,,ba%:
  1086. 1)<>1 I%=
  1087. L`(1,"Messages file not found - unable to continue"):
  1088. ea% ba%+4:E%=ea%+ba%:
  1089. 8,16,J`$+".resources.messages",ea%,0:?E%=13:Bc%=0:I%=ea%:J%=I%:
  1090. I%<E%:
  1091. ?I%=10
  1092. ?I%>31:I%+=1:
  1093. :I%+=1
  1094. :I%+=3:
  1095. :?J%=?I%:I%+=1:J%+=1:
  1096. ?I%<32:?J%=13:I%+=1:J%+=1:Bc%+=1
  1097. :I%+=1:
  1098. ?I%=34
  1099. ?I%<32:
  1100. ?I%<32:=""
  1101. :I%+=1:
  1102. ?I%<>32:
  1103. ?I%<32:=""
  1104. %J%=I%:
  1105. :J%+=1:
  1106. ?J%<32:?J%=13:=$I%
  1107. t%:?X`%=3:
  1108. 7,14,X`%:
  1109. 193,X`%,X`%+40,100,"%YR%MN%DY"+
  1110. ,t%:?t%=13:=$(X`%+40)
  1111. Ec (Fc%):
  1112. Gc% Fc%,Hc%&100:E%=Gc%+Fc%:
  1113. 262361,,"<ProCopy$Dir>.Resources.Templates":
  1114. 262363,,q`%,Gc%,E%,-1,"info",0
  1115. ,,R%:
  1116. 262337,,q`%
  1117. 262363,,q`%,R%,E%,-1,"read",0
  1118. ,,R%:
  1119. 262337,,q`%
  1120. 262363,,q`%,R%,E%,-1,"write",0
  1121. ,,R%:
  1122. 262337,,q`%
  1123. 262363,,q`%,R%,E%,-1,"options",0
  1124. ,,R%:
  1125. 262337,,q`%
  1126. 262363,,q`%,R%,E%,-1,"saveas",0
  1127. ,,R%:
  1128. 262337,,q`%
  1129. 262363,,q`%,R%,E%,-1,"name",0
  1130. ,,R%:
  1131. 262337,,q`%
  1132. 262363,,q`%,R%,E%,-1,"list",0
  1133. ,,R%:
  1134. 262337,,q`%
  1135. 262363,,q`%,R%,E%,-1,"yesno",0
  1136. ,,R%:
  1137. 262337,,q`%
  1138. 262363,,q`%,R%,E%,Hc%,"banner",0
  1139. ,,R%:
  1140. 262337,,q`%
  1141. 262363,,q`%,R%,E%,-1,"shad",0
  1142. ,,R%:
  1143. 262337,,q`%
  1144. 262362:
  1145. m`(Bb%,1,Ic$):
  1146. m`(Bb%,2,A_$):
  1147. m`(Bb%,3,Jc$):
  1148. m`(Bb%,4,Kc$):
  1149. 262336,200,&4B534154,"ProCopy"
  1150. Lc%,Nb%:
  1151. Lc%<310
  1152. 0,"This program requires RISC-OS 3 or better":
  1153. F_%&140,X`%&100,Mb% 32,Hb% 16,Ib% 16,Jb% 16,l`%&50,``%&80:
  1154. Mc%(20),sb%&1900,Y`% 80:$Mb%="ProCopy":$Hb%="None":$Ib%="s!procopy":$Jb%="":
  1155. $+" During initialisation",
  1156. 35,"Obey$Dir",F_%,256,0,3
  1157. ,,I%:F_%?I%=13:J`$=$F_%:nb$=J`$+".Resources":Oa$=
  1158. Dc:ta%=
  1159. :q`%=
  1160. Ya(&2000)=
  1161. -1,"Not enough memory to run !ProCopy"
  1162. Ec(&740):A%=0:
  1163. {v_%=
  1164. 131107,"ProCopyLog$Dir",F_%,256,0,3
  1165. ,,I%:F_%?I%=13:
  1166. $F_%="" Na$=J`$+".Logs.Log_"+Oa$
  1167. Na$=$F_%+".Log_"+Oa$
  1168. x_(36)=
  1169. Oc$=Oa$
  1170. Oa$,4)
  1171. T`% rb%,O`%&200,wb%&20:U`%=T`%:!sb%=R_%:
  1172. 262348,,sb%:
  1173. 4:wb%!I%=sb%!(I%+152):
  1174. :!wb%=R_%:xb%=wb%!16:zb%=xb%-wb%!8:
  1175. 8,13,nb$+".Options"
  1176. 8,13,J`$+".Preset"
  1177. 262722
  1178. ,B`%:B`%-=1:!F_%=G`%:F_%!4=72:F_%!8=-92:F_%!12=144:F_%!16=-24:F_%!20=&6102:F_%!24=Jb%:F_%!28=1:F_%!32=&40:
  1179. 262338,,F_%
  1180. ):P`$=
  1181. P`$>""
  1182. Nc:Ic$="Pro Copy":A_$=
  1183. (A_%/100)+" - "+B_$:Jc$="
  1184.  David Holden":Kc$="Multiple Disc Copier":A`%=0:D`%=0:U_%=0:g`%=0:Qc%=0:J_%=
  1185. :c_%=4:ob$="ProCopy 2 Options":ab%=12:c`%=
  1186. :E_%=%110000110001:rb%=&1000:qb%=0:
  1187.